home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Shareware Plus / Development / Akua Sweets 131 / Akua Sweets Examples / Resource / Clipping => Picture next >
Encoding:
Text File  |  1999-03-04  |  538 b   |  23 lines  |  [TEXT/ToyS]
  1. on open fsObjs
  2.     -- Get our icon
  3.     repeat with fsObj in fsObjs
  4.         set fInfo to basic info for fsObj
  5.         
  6.         if (system type of fInfo is "clpp") then
  7.             set clipPic to the clipping from fsObj ¬
  8.                 only returning the picture
  9.             
  10.             set fsNew to ((fsObj as text) & "®") as file specification
  11.             
  12.             store image clipPic in fsNew
  13.             
  14.             -- Swap the files, moving the clipping to the Trash
  15.             set oldName to catalog name of fInfo
  16.             collate fsObj with the trasher
  17.             collate fsNew renaming it to oldName
  18.         else
  19.             beep
  20.         end if
  21.     end repeat
  22. end open
  23.